   1 .
   2 .SUB HUNTER
   3 .
  10 clear ;NT=0;BC=194;FC=232;print ;CX=-26;print "H U N T E R";box 0,27,160,2,1;CY=21;print " S U B
  12 box -1,-15,148,1,1;CY=-21;print " DIAL";print " NUMBER 0F GAMES:";box -1,-35,148,1,1
  14 K=KN(1)div 10+13;CX=28;CY=-29;print K;if TR(1)goto 20
  16 NT=9;MU=88;MU=87;MU=86;NT=0;goto 14
  20 clear ;BC=FC;FC=194;CX=-26;CY=-40;print "G00D LUCK!",;CX=-77;CY=32;for Q=1to 117;print "/\",;next Q;A=0;B=0;&(23)=255
  25 box 0,35,160,1,1;box 0,-35,160,1,1;box -1,0,75,55,1;box -1,0,73,53,2
  30 for X=-25to 25step 10;box 0,X,70,1,1;next X;for X=-36to 34step 10;box X,0,1,51,1;next X;C=1;D=3;E=7;F=3;W=0;gosub 310;gosub 170
  35 gosub 45;gosub 105
  40 goto 35
  45 U=C;V=D
  50 L=JX(1);M=JY(1);if L=0if M=0goto 50
  60 H=ABS(D-F)+ABS(C-E);NT=35;MU=81;NT=9;MU=81;NT=0;for I=0to 250;next I;if (C+L<1)+(C+L>7)+(D+M<1)+(D+M>5)goto 50
  70 C=C+L;D=D+M;X=C;Y=D;gosub 190;X=X+L;Y=Y+M;if (X<1)+(X>7)+(Y<1)+(Y>5)goto 90
  80 gosub 190
  90 X=U;Y=V;gosub 180;gosub 170;return 
 105 if rnd (10)>7goto 140
 110 L=rnd (3)-2;M=rnd (3)-2;if L=0if M=0goto 110
 120 X=E+L;Y=F+M;if (X<1)+(X>7)+(Y<1)+(Y>5)goto 110
 130 E=X;F=Y;return 
 140 H=7;I=1;if C<E H=1;I=-1
 150 Y=F;for X=Eto Hstep I;gosub 230;next X
 170 CX=10mul C-40;CY=10mul D-30;print "*",;return 
 180 gosub 270;print " ",;FC=194;return 
 190 gosub 280;if X=Eif Y=Fgoto 210
 200 goto 220
 210 S=1;gosub 310;E=rnd (7);F=rnd (5)
 220 gosub 180;return 
 230 gosub 270;&(21)=24;NT=1;if X=Cif Y=Dgoto 250
 240 print "-",;&(21)=0;NT=0;gosub 180;return 
 250 NT=0;for R=209to 255;&(21)=R;next R;gosub 280;T=1;gosub 310;gosub 180;C=1;D=3;gosub 170;X=H+I;return 
 270 CX=10mul X-40;CY=10mul Y-30;return 
 280 &(19)=9;&(21)=255;gosub 270;print "mul ",;&(21)=0;&(19)=0;return 
 310 CX=-71;CY=40;A=A+S;B=B+T;print "SHIP:",#3,A,"         SUB:",#3,B
 320 CX=-26;CY=-40;if S FC=196;print "G00D SH0T!",;NT=25;MU=68;MU=72;MU=75;NT=35;MU=78;NT=0
 330 if T FC=10;print "Y0U'RE HIT",;NT=99;MU="#";NT=0
 340 S=0;T=0;if W>0for N=0to 999;next N
 342 W=W+1;CX=-26;CY=-40;if W>Kif A=Bprint "B0NUS GAME",;FC=194;return 
 345 if W<K+1print " GAME:",#3,W," ",;FC=194;return 
 350 CX=-47;CY=-40;if A>B FC=92;print "SUB IS DESTR0YED!",;gosub 400;gosub 400;gosub 410
 360 if B>A FC=42;print "Y0U ARE DESTROYED",;gosub 400;gosub 400;gosub 420
 370 box -1,0,29,29,2;CX=-9;CY=5;print "GAME",;CX=-9;CY=-5;print "OVER",
 380 if TR(1)run 
 390 goto 380
 400 NT=15;MU=63;MU=60;return 
 410 NT=18;MU=63;MU=67;NT=30;MU=68;NT=0;return 
 420 MU=63;MU=64;MU=63;MU=60;NT=0;return 
>:return 
